home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / MATHEMAT / 1769.ZIP / ALGIN1 < prev    next >
Text File  |  1987-02-21  |  385b  |  31 lines
  1. order x y
  2. define sum1 = 3/4 x**2
  3. define sum2
  4. 1
  5. 4 sum1
  6. 7 y
  7. 1/3 z
  8.  
  9. define sum3 = sum1 * sum2
  10. print sum3
  11.  
  12. the derivative of y wrt x is dydx
  13. differentiate sum4 = d sum3/d x
  14. print sum4
  15. substitute 8 for x in sum4
  16. print sum4
  17.  
  18. fortran sum4
  19.  
  20. define one = 1
  21. define six = 6
  22. define i = one
  23.  
  24. label lab2
  25. compute i = i + one
  26. print i
  27. if i.eq.six end
  28. goto lab2
  29.  
  30. end input
  31.